% Change file for DDTONE.WEB, computes a "sphere" (no, actually constant)
@x
reset(bytes_in,input_name,'/B:8')
@y
@z
@x
@!t:eight_bits; {byte of input}
begin new_row[0]←0.0;
if i>mm then for j←1 to nn do new_row[j]←0.0
else for j←1 to nn do
	begin read(bytes_in,t); new_row[j]←(255.5-t)/256.0;
@y
@!x,@!y,@!z:real; {coordinates of input}
begin new_row[0]←0.0;
if i>mm then for j←1 to nn do new_row[j]←0.0
else for j←1 to nn do
	begin new_row[j]←0.5;
@z